home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / tbasic.arc / TRANSBASIC (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  191b  |  10 lines
  1. 100 IF PEEK(773)<192 GOTO120
  2. 110 _A    :REM EXIT
  3. 120 IF A=1 GOTO140
  4. 130 A=1:LOAD"TB/ADD.OBJ",8,1
  5. 140 SYS49152:REM ENABLE TB/ADD
  6. 150 A$=CHR$(34)+"TB/KERNEL"+CHR$(34)
  7. 160 PRINT"[147]LOAD"A$",8"
  8. 170 POKE 198,1
  9. 180 POKE 631,13
  10.